2 POKE786,0:REM*******DISK TO TAPE/COM-64****BY L.MINNITI********* 3 FORT=1TO4 4 PRINT"[147]PROGRAM NAME?":PRINT"TYPE-END[146]-WHEN FINISHED" 5 INPUTPR$(T) 6 POKE786,PEEK(786)+1 7 Z=PEEK(786) 8 IFPR$(T)="END"THEN10 9 NEXT 10 PRINT"[147]"(496+Z)"D[193]"PR$(1)","PR$(2)","PR$(3)","PR$(4) 11 IFPR$(4)=""ORPR$(4)="END"THENPRINT"GOTO14":GOTO13 12 PRINT"GOTO3" 13 :POKE198,2:POKE631,13:POKE632,13:END 14 PRINT"[147]":FORT=2TO16:PRINTT:NEXT 15 PRINT"SAVE-DISK[146]-ON DISK YOU WANT TO BACK-UP" 16 PRINT"":POKE198,15:FORT=1TO15:POKE630+T,13:NEXT:END 18 PRINT"[147]PRESS RECORD AND PLAY" 19 IFPEEK(1)>40THENGOSUB100 20 POKE787,PEEK(787)+1 30 D=PEEK(787) 50 FORC=1TOD:READA$:NEXT 55 IFA$="END"THENPRINT"[147]FINISHED":END 70 PRINT"[147]L[207]"CHR$(34)A$CHR$(34)",8" 75 PRINT"S[193]"CHR$(34)A$:PRINT"NEW" 80 PRINT"LOAD"CHR$(34)"DISK"CHR$(34)",8":PRINT"POKE198,0:RUN" 90 POKE198,10:FORT=1TO10:POKE630+T,13:NEXT:END 100 WAIT1,16,16 110 IFPEEK(787)=0THENRETURN 120 POKE787,PEEK(787)-1:RETURN